object FormEdit: TFormEdit Left = 324 Top = 194 BorderStyle = bsDialog Caption = 'Edition' ClientHeight = 371 ClientWidth = 538 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] FormStyle = fsStayOnTop Icon.Data = {} KeyPreview = True OldCreateOrder = False Position = poScreenCenter OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy OnKeyDown = FormKeyDown OnShow = FormShow PixelsPerInch = 96 TextHeight = 14 object SC_Line5: TSC_Line Left = 0 Top = 337 Width = 538 Height = 34 BorderShape = bsTopLine Align = alBottom end object ButtonOk: TButton Left = 147 Top = 343 Width = 74 Height = 22 Caption = '&Ok' Default = True ModalResult = 1 TabOrder = 2 OnClick = ButtonOkClick end object ButtonCancel: TButton Left = 317 Top = 343 Width = 74 Height = 22 Cancel = True Caption = '&Annuler' ModalResult = 2 TabOrder = 4 OnClick = ButtonCancelClick end object PageControl: TPageControl Left = 135 Top = 0 Width = 397 Height = 334 ActivePage = Tab1 Style = tsFlatButtons TabOrder = 1 object Tab1: TTabSheet Caption = ' Personnel ' TabVisible = False object Label2: TLabel Left = 185 Top = 63 Width = 36 Height = 14 Caption = 'Pr'#233'nom' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label3: TLabel Left = 3 Top = 105 Width = 42 Height = 14 Caption = 'Adresse' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label15: TLabel Left = 3 Top = 147 Width = 109 Height = 14 Caption = 'Compl'#233'ment d'#39'adresse' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label4: TLabel Left = 276 Top = 189 Width = 57 Height = 14 Caption = 'Code Postal' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label5: TLabel Left = 3 Top = 189 Width = 20 Height = 14 Caption = 'Ville' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label14: TLabel Left = 188 Top = 231 Width = 24 Height = 14 Caption = 'Pays' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label26: TLabel Left = 188 Top = 282 Width = 52 Height = 14 Caption = 'Cat'#233'gories' end object SpeedButton4: TSpeedButton Tag = 1 Left = 370 Top = 189 Width = 17 Height = 15 Cursor = crHandPoint Hint = 'Supprimer|Supprimer l'#39#233'l'#233'ment de la liste' Caption = '-' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Layout = blGlyphBottom ParentFont = False ParentShowHint = False ShowHint = True OnClick = SpeedButton4Click end object SpeedButton5: TSpeedButton Left = 167 Top = 231 Width = 17 Height = 15 Cursor = crHandPoint Hint = 'Supprimer|Supprimer l'#39#233'l'#233'ment de la liste' Caption = '-' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Layout = blGlyphBottom ParentFont = False ParentShowHint = False ShowHint = True OnClick = SpeedButton5Click end object SpeedButton6: TSpeedButton Tag = 4 Left = 368 Top = 231 Width = 17 Height = 15 Cursor = crHandPoint Hint = 'Supprimer|Supprimer l'#39#233'l'#233'ment de la liste' Caption = '-' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Layout = blGlyphBottom ParentFont = False ParentShowHint = False ShowHint = True OnClick = SpeedButton6Click end object SpeedButton7: TSpeedButton Tag = 2 Left = 255 Top = 189 Width = 17 Height = 15 Cursor = crHandPoint Hint = 'Supprimer|Supprimer l'#39#233'l'#233'ment de la liste' Caption = '-' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Layout = blGlyphBottom ParentFont = False ParentShowHint = False ShowHint = True OnClick = SpeedButton7Click end object SpeedButton10: TSpeedButton Tag = 6 Left = 368 Top = 282 Width = 17 Height = 15 Cursor = crHandPoint Hint = 'Supprimer|Supprimer l'#39#233'l'#233'ment de la liste' Caption = '-' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Layout = blGlyphBottom ParentFont = False ParentShowHint = False ShowHint = True OnClick = SpeedButton10Click end object Label30: TLabel Left = 3 Top = 21 Width = 30 Height = 14 Caption = 'Civilit'#233 end object SpeedButton8: TSpeedButton Tag = 5 Left = 368 Top = 21 Width = 17 Height = 15 Cursor = crHandPoint Hint = 'Supprimer|Supprimer l'#39#233'l'#233'ment de la liste' Caption = '-' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Layout = blGlyphBottom ParentFont = False ParentShowHint = False ShowHint = True OnClick = SpeedButton8Click end object Label9: TLabel Left = 21 Top = 1 Width = 149 Height = 15 Caption = 'Informations personnelles' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Image2: TImage Left = 3 Top = 0 Width = 16 Height = 16 AutoSize = True Picture.Data = {} Transparent = True end object SC_CloneD: TSC_Label Left = 174 Top = 2 Width = 193 Height = 14 Cursor = crHandPoint Caption = '(Copier depuis un contact existant)' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False OnClick = SC_CloneDClick ACHover = True ACUnderline = True ACColorEnter = clBlue ACColorLeave = clNavy end object Label12: TLabel Left = 3 Top = 63 Width = 21 Height = 14 Caption = 'Nom' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label13: TLabel Left = 3 Top = 231 Width = 61 Height = 14 Caption = 'D'#233'partement' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label39: TLabel Left = 3 Top = 282 Width = 25 Height = 14 Caption = 'Sexe' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object SC_EditCd: TSC_Label Left = 26 Top = 189 Width = 225 Height = 14 Cursor = crHandPoint Caption = '(Editer le code postal et le d'#233'partement, Ctrl+E)' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False OnClick = SC_EditCdClick ACHover = True ACUnderline = True ACColorEnter = clBlue ACColorLeave = clNavy end object EditNom: TEdit Left = 3 Top = 78 Width = 180 Height = 22 Ctl3D = True MaxLength = 50 ParentCtl3D = False TabOrder = 1 OnKeyPress = EditNomKeyPress end object EditPrenom: TEdit Left = 185 Top = 78 Width = 201 Height = 22 Ctl3D = True MaxLength = 50 ParentCtl3D = False TabOrder = 2 OnKeyPress = EditNomKeyPress end object EditAdresse1: TEdit Left = 3 Top = 120 Width = 383 Height = 22 Ctl3D = True MaxLength = 80 ParentCtl3D = False TabOrder = 3 OnKeyPress = EditNomKeyPress end object EditAdresse2: TEdit Left = 3 Top = 162 Width = 383 Height = 22 Ctl3D = True MaxLength = 80 ParentCtl3D = False TabOrder = 4 OnKeyPress = EditNomKeyPress end object ComboCode: TComboBox Left = 276 Top = 204 Width = 112 Height = 22 Cursor = crHandPoint DropDownCount = 15 ItemHeight = 14 Sorted = True TabOrder = 6 OnExit = TousComboExit end object ComboVille: TComboBox Left = 3 Top = 204 Width = 271 Height = 22 Cursor = crHandPoint DropDownCount = 15 ItemHeight = 14 Sorted = True TabOrder = 5 OnExit = TousComboExit OnKeyPress = ComboKeyPress end object ComboDep: TComboBox Left = 3 Top = 246 Width = 183 Height = 22 Cursor = crHandPoint DropDownCount = 15 ItemHeight = 14 Sorted = True TabOrder = 7 OnExit = TousComboExit OnKeyPress = ComboKeyPress end object ComboPays: TComboBox Left = 188 Top = 246 Width = 199 Height = 22 Cursor = crHandPoint DropDownCount = 15 ItemHeight = 14 Sorted = True TabOrder = 8 OnExit = TousComboExit OnKeyPress = ComboKeyPress end object ComboCategorie: TComboBox Left = 188 Top = 297 Width = 199 Height = 22 Cursor = crHandPoint DropDownCount = 15 ItemHeight = 14 Sorted = True TabOrder = 10 OnExit = TousComboExit OnKeyPress = ComboKeyPress end object ComboTitre: TComboBox Left = 3 Top = 36 Width = 383 Height = 22 Cursor = crHandPoint DropDownCount = 15 ItemHeight = 14 Sorted = True TabOrder = 0 OnExit = TousComboExit OnKeyPress = ComboKeyPress end object ComboSexe: TComboBox Left = 3 Top = 297 Width = 183 Height = 22 Cursor = crHandPoint Style = csDropDownList DropDownCount = 15 ItemHeight = 14 TabOrder = 9 OnExit = TousComboExit OnKeyPress = ComboKeyPress Items.Strings = ( '' 'M' 'F') end end object Tab2: TTabSheet Caption = 'T'#233'l'#233'phone et internet ' ImageIndex = 2 TabVisible = False object Label19: TLabel Left = 3 Top = 105 Width = 42 Height = 14 Caption = 'Adresse' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label20: TLabel Left = 3 Top = 147 Width = 109 Height = 14 Caption = 'Compl'#233'ment d'#39'adresse' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label21: TLabel Left = 276 Top = 189 Width = 57 Height = 14 Caption = 'Code Postal' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label22: TLabel Left = 3 Top = 189 Width = 20 Height = 14 Caption = 'Ville' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label23: TLabel Left = 3 Top = 231 Width = 61 Height = 14 Caption = 'D'#233'partement' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label24: TLabel Left = 188 Top = 231 Width = 24 Height = 14 Caption = 'Pays' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label25: TLabel Left = 188 Top = 282 Width = 66 Height = 14 Caption = 'Poste occup'#233 end object Label27: TLabel Left = 3 Top = 282 Width = 37 Height = 14 Caption = 'Service' end object SpeedB_CodeP: TSpeedButton Tag = 7 Left = 370 Top = 189 Width = 17 Height = 15 Cursor = crHandPoint Hint = 'Supprimer|Supprimer l'#39#233'l'#233'ment de la liste' Caption = '-' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Layout = blGlyphBottom ParentFont = False ParentShowHint = False ShowHint = True OnClick = SpeedB_CodePClick end object SpeedB_VilleP: TSpeedButton Tag = 8 Left = 255 Top = 189 Width = 17 Height = 15 Cursor = crHandPoint Hint = 'Supprimer|Supprimer l'#39#233'l'#233'ment de la liste' Caption = '-' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Layout = blGlyphBottom ParentFont = False ParentShowHint = False ShowHint = True OnClick = SpeedB_VillePClick end object SpeedB_SuppPaysP: TSpeedButton Tag = 10 Left = 368 Top = 231 Width = 17 Height = 15 Cursor = crHandPoint Hint = 'Supprimer|Supprimer l'#39#233'l'#233'ment de la liste' Caption = '-' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Layout = blGlyphBottom ParentFont = False ParentShowHint = False ShowHint = True OnClick = SpeedB_SuppPaysPClick end object SpeedButton1: TSpeedButton Tag = 9 Left = 167 Top = 231 Width = 17 Height = 15 Cursor = crHandPoint Hint = 'Supprimer|Supprimer l'#39#233'l'#233'ment de la liste' Caption = '-' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Layout = blGlyphBottom ParentFont = False ParentShowHint = False ShowHint = True OnClick = SpeedButton1Click end object SpeedButton2: TSpeedButton Tag = 11 Left = 167 Top = 282 Width = 17 Height = 15 Cursor = crHandPoint Hint = 'Supprimer|Supprimer l'#39#233'l'#233'ment de la liste' Caption = '-' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Layout = blGlyphBottom ParentFont = False ParentShowHint = False ShowHint = True OnClick = SpeedButton2Click end object SpeedButton3: TSpeedButton Tag = 12 Left = 368 Top = 282 Width = 17 Height = 15 Cursor = crHandPoint Hint = 'Supprimer|Supprimer l'#39#233'l'#233'ment de la liste' Caption = '-' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Layout = blGlyphBottom ParentFont = False ParentShowHint = False ShowHint = True OnClick = SpeedButton3Click end object Label8: TLabel Left = 3 Top = 63 Width = 21 Height = 14 Caption = 'Nom' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label10: TLabel Left = 21 Top = 1 Width = 170 Height = 15 Caption = 'Informations professionnelles' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Image1: TImage Left = 3 Top = 0 Width = 16 Height = 16 AutoSize = True Picture.Data = {} Transparent = True end object SC_CloneB: TSC_Label Left = 195 Top = 2 Width = 193 Height = 14 Cursor = crHandPoint Caption = '(Copier depuis un contact existant)' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False OnClick = SC_CloneBClick ACHover = True ACUnderline = True ACColorEnter = clBlue ACColorLeave = clNavy end object Label11: TLabel Left = 3 Top = 21 Width = 85 Height = 14 Caption = 'Nom de la soci'#233't'#233 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object SC_EditCdSoc: TSC_Label Left = 26 Top = 189 Width = 225 Height = 14 Cursor = crHandPoint Caption = '(Editer le code postal et le d'#233'partement, Ctrl+E)' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False OnClick = SC_EditCdSocClick ACHover = True ACUnderline = True ACColorEnter = clBlue ACColorLeave = clNavy end object SC_LabelNom: TSC_Label Left = 29 Top = 63 Width = 202 Height = 14 Cursor = crHandPoint Caption = '(Copier le nom de la page domicile, Ctrl+N)' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False OnClick = SC_LabelNomClick ACHover = True ACUnderline = True ACColorEnter = clBlue ACColorLeave = clNavy end object EditSoc: TEdit Left = 3 Top = 36 Width = 383 Height = 22 Ctl3D = True MaxLength = 50 ParentCtl3D = False TabOrder = 0 OnKeyPress = EditNomKeyPress end object EditAdresse1Soc: TEdit Left = 3 Top = 120 Width = 383 Height = 22 Ctl3D = True MaxLength = 80 ParentCtl3D = False TabOrder = 2 OnKeyPress = EditNomKeyPress end object EditAdresse2Soc: TEdit Left = 3 Top = 162 Width = 383 Height = 22 Ctl3D = True MaxLength = 80 ParentCtl3D = False TabOrder = 3 OnKeyPress = EditNomKeyPress end object ComboCodeSoc: TComboBox Left = 276 Top = 204 Width = 112 Height = 22 Cursor = crHandPoint DropDownCount = 15 ItemHeight = 14 Sorted = True TabOrder = 5 OnExit = TousComboExit end object ComboVilleSoc: TComboBox Left = 3 Top = 204 Width = 271 Height = 22 Cursor = crHandPoint DropDownCount = 15 ItemHeight = 14 Sorted = True TabOrder = 4 OnExit = TousComboExit OnKeyPress = ComboKeyPress end object ComboDepSoc: TComboBox Left = 3 Top = 246 Width = 183 Height = 22 Cursor = crHandPoint DropDownCount = 15 ItemHeight = 14 Sorted = True TabOrder = 6 OnExit = TousComboExit OnKeyPress = ComboKeyPress end object ComboPaysSoc: TComboBox Left = 188 Top = 246 Width = 199 Height = 22 Cursor = crHandPoint DropDownCount = 15 ItemHeight = 14 Sorted = True TabOrder = 7 OnExit = TousComboExit OnKeyPress = ComboKeyPress end object ComboService: TComboBox Left = 3 Top = 297 Width = 183 Height = 22 Cursor = crHandPoint DropDownCount = 15 ItemHeight = 14 Sorted = True TabOrder = 8 OnExit = TousComboExit OnKeyPress = ComboKeyPress end object ComboPoste: TComboBox Left = 188 Top = 297 Width = 199 Height = 22 Cursor = crHandPoint DropDownCount = 15 ItemHeight = 14 Sorted = True TabOrder = 9 OnExit = TousComboExit OnKeyPress = ComboKeyPress end object EditNomSoc: TEdit Left = 3 Top = 78 Width = 383 Height = 22 Ctl3D = True MaxLength = 80 ParentCtl3D = False TabOrder = 1 OnKeyPress = EditNomKeyPress end end object Tab3: TTabSheet Caption = ' M'#233'mo ' ImageIndex = 3 TabVisible = False object Label18: TLabel Left = 3 Top = 21 Width = 91 Height = 14 Caption = 'T'#233'l'#233'phone domicile' end object Label28: TLabel Left = 131 Top = 21 Width = 59 Height = 14 Caption = 'Fax domicile' end object Label29: TLabel Left = 259 Top = 21 Width = 80 Height = 14 Caption = 'Portable domicile' end object Label31: TLabel Left = 3 Top = 63 Width = 87 Height = 14 Caption = 'T'#233'l'#233'phone bureau' end object Label32: TLabel Left = 131 Top = 63 Width = 55 Height = 14 Caption = 'Fax bureau' end object Label33: TLabel Left = 259 Top = 63 Width = 76 Height = 14 Caption = 'Portable bureau' end object Label34: TLabel Left = 3 Top = 131 Width = 66 Height = 14 Caption = 'Email Domicile' end object SpeedB_SuppMail: TSpeedButton Tag = 13 Left = 368 Top = 129 Width = 17 Height = 18 Cursor = crHandPoint Hint = 'Supprimer|Supprimer l'#39#233'l'#233'ment de la liste' Caption = '-' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Layout = blGlyphBottom ParentFont = False ParentShowHint = False ShowHint = True OnClick = SpeedB_SuppMailClick end object SpeedButton9: TSpeedButton Tag = 14 Left = 368 Top = 174 Width = 17 Height = 15 Cursor = crHandPoint Hint = 'Supprimer|Supprimer l'#39#233'l'#233'ment de la liste' Caption = '-' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Layout = blGlyphBottom ParentFont = False ParentShowHint = False ShowHint = True OnClick = SpeedButton9Click end object Label35: TLabel Left = 3 Top = 173 Width = 85 Height = 14 Caption = 'Site Web Domicile' end object Label36: TLabel Left = 3 Top = 236 Width = 61 Height = 14 Caption = 'Email bureau' end object SpeedB_SuppMailP: TSpeedButton Tag = 15 Left = 368 Top = 237 Width = 17 Height = 15 Cursor = crHandPoint Hint = 'Supprimer|Supprimer l'#39#233'l'#233'ment de la liste' Caption = '-' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Layout = blGlyphBottom ParentFont = False ParentShowHint = False ShowHint = True OnClick = SpeedB_SuppMailPClick end object SpeedB_SuppWebP: TSpeedButton Tag = 16 Left = 368 Top = 282 Width = 17 Height = 15 Cursor = crHandPoint Hint = 'Supprimer|Supprimer l'#39#233'l'#233'ment de la liste' Caption = '-' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Layout = blGlyphBottom ParentFont = False ParentShowHint = False ShowHint = True OnClick = SpeedB_SuppWebPClick end object Label37: TLabel Left = 3 Top = 281 Width = 80 Height = 14 Caption = 'Site Web bureau' end object Image3: TImage Left = 3 Top = 0 Width = 16 Height = 16 AutoSize = True Picture.Data = {} Transparent = True end object Label16: TLabel Left = 21 Top = 1 Width = 127 Height = 15 Caption = 'T'#233'l'#233'phones et internet' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object EditGsm: TEdit Left = 259 Top = 36 Width = 126 Height = 22 Ctl3D = True ParentCtl3D = False TabOrder = 2 end object EditFax: TEdit Left = 131 Top = 36 Width = 126 Height = 22 Ctl3D = True ParentCtl3D = False TabOrder = 1 end object EditTel: TEdit Left = 3 Top = 36 Width = 126 Height = 22 Ctl3D = True ParentCtl3D = False TabOrder = 0 end object EditGsmSoc: TEdit Left = 259 Top = 78 Width = 126 Height = 22 Ctl3D = True ParentCtl3D = False TabOrder = 5 end object EditFaxSoc: TEdit Left = 131 Top = 78 Width = 126 Height = 22 Ctl3D = True ParentCtl3D = False TabOrder = 4 end object EditTelSoc: TEdit Left = 3 Top = 78 Width = 126 Height = 22 Ctl3D = True ParentCtl3D = False TabOrder = 3 end object ComboMail: TComboBox Left = 3 Top = 147 Width = 384 Height = 22 Cursor = crHandPoint DropDownCount = 12 ItemHeight = 14 Sorted = True TabOrder = 6 OnExit = TousComboExit end object ComboWeb: TComboBox Left = 3 Top = 189 Width = 384 Height = 22 Cursor = crHandPoint DropDownCount = 12 ItemHeight = 14 Sorted = True TabOrder = 7 OnExit = TousComboExit end object ComboMailSoc: TComboBox Left = 3 Top = 252 Width = 384 Height = 22 Cursor = crHandPoint DropDownCount = 12 ItemHeight = 14 Sorted = True TabOrder = 8 OnExit = TousComboExit end object ComboWebSoc: TComboBox Left = 3 Top = 297 Width = 384 Height = 22 Cursor = crHandPoint DropDownCount = 12 ItemHeight = 14 Sorted = True TabOrder = 9 OnExit = TousComboExit end end object Tab4: TTabSheet Caption = 'Tab4' ImageIndex = 3 TabVisible = False object Label6: TLabel Left = 3 Top = 21 Width = 62 Height = 14 Caption = 'Anniversaire' end object Label7: TLabel Left = 128 Top = 21 Width = 21 Height = 14 Caption = 'F'#234'te' end object SpeedBFete: TSpeedButton Left = 253 Top = 36 Width = 23 Height = 22 Cursor = crHandPoint Hint = 'Rechercher la f'#234'te' Flat = True Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 04000000000080000000120B0000120B00001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00778888888888 8888778FFFFFFFFFFFF8778FF8FF8FF8FFF8778FFFFFFFFFFFF8778FFFFFFFFF FFF8788888FF8FF8FFF88B83338FFFFFFFF88BB83338FFFFFFF878BB8888FFFF FFF8778BBB844444444477488800000000047740008888000004774448919884 4444777789198187777777778888187777777777781187777777} Margin = 0 ParentShowHint = False ShowHint = True OnClick = SpeedBFeteClick end object Image4: TImage Left = 3 Top = 0 Width = 16 Height = 16 AutoSize = True Picture.Data = {} Transparent = True end object Label17: TLabel Left = 21 Top = 1 Width = 189 Height = 15 Caption = 'Memo et '#233'v'#232'nements '#224' souhaiter' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Memo1: TMemo Left = 3 Top = 69 Width = 383 Height = 251 Ctl3D = True ParentCtl3D = False ParentShowHint = False ScrollBars = ssBoth ShowHint = False TabOrder = 2 OnEnter = Memo1Enter OnExit = Memo1Exit end object EditAniv: TLsAlignEdit Left = 3 Top = 36 Width = 123 Height = 22 ColorNormal = clWindow ColorFocused = clWindow MaxLength = 10 TabOrder = 0 OnContextPopup = EditFeteContextPopup OnExit = EditAnivExit OnKeyPress = EditAnivKeyPress end object EditFete: TLsAlignEdit Left = 128 Top = 36 Width = 123 Height = 22 ColorNormal = clWindow ColorFocused = clWindow MaxLength = 10 TabOrder = 1 OnContextPopup = EditFeteContextPopup OnExit = EditFeteExit OnKeyPress = EditAnivKeyPress end end object Tab5: TTabSheet Caption = 'Tab5' ImageIndex = 4 TabVisible = False object Label1: TLabel Left = 3 Top = 21 Width = 27 Height = 14 Caption = 'Photo' end object Image5: TImage Left = 3 Top = 0 Width = 16 Height = 16 AutoSize = True Picture.Data = {} Transparent = True end object Label38: TLabel Left = 21 Top = 1 Width = 182 Height = 15 Caption = 'Attribuer une photo '#224' ce contact' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object ButtonOpenImg: TButton Left = 3 Top = 300 Width = 105 Height = 22 Hint = '|Rechercher une image et l'#39'attribuer au contact' Caption = '&Attribuer une image' TabOrder = 0 OnClick = ButtonOpenImgClick end object ButtonDellImg: TButton Left = 118 Top = 300 Width = 105 Height = 22 Hint = '|Supprimer cette image du contact' Caption = '&Supprimer l'#39'image' TabOrder = 1 OnClick = ButtonDellImgClick end object SC_PanelImg: TSC_Panel Left = 3 Top = 36 Width = 383 Height = 259 BorderWidth = 1 Color = clWhite TabOrder = 2 OnDblClick = ButtonOpenImgClick object Image: TImage Left = 92 Top = 26 Width = 201 Height = 201 Center = True OnDblClick = ButtonOpenImgClick end end end end object ListEdit: TListBox Left = 9 Top = 9 Width = 121 Height = 318 Cursor = crHandPoint Style = lbOwnerDrawFixed Ctl3D = True Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ItemHeight = 18 Items.Strings = ( 'Domicile' 'Bureau' 'T'#233'l'#233'phones et Internet' 'M'#233'mo et '#233'v'#232'nements' 'Photo') ParentCtl3D = False ParentFont = False TabOrder = 0 OnClick = ListEditClick end object ButtonHelp: TButton Left = 232 Top = 343 Width = 74 Height = 22 Caption = 'Ai&de' TabOrder = 3 OnClick = ButtonHelpClick end end